? EXECUTE PATCH/MERGE 



PACKET 
INPUT 
TIME 
DATE 



1102 

35 

1618 

77013 



CARDS FROM CRA 
THURSDAY* 01/13/77 



oc$>c 



*** MESSAGE OF THE DAY *** 

WELCOME TO B5700 TIME SHARING, 

MAY YOUR DATA BE DEPENDABLE AND YOUR PROGRAMS PROVEN. 
FROM THE STAFF QF THE BIG BAD BURROUGHS. 



/as/ 77 



*** BURROUGHS B5700 TSMCP MARK XVI, 0,69 AND INjRINSlCS MARK XVI, 0.00 *** 

? EXECUTE PATCH/MERGE 

? FILE CARD* PMCARD 
? DATA PMCARD 

<nPATCH/MERSE* 2 BOJ 1618 10/12/76 

CDA IN PMCARDJPATCH/MERGE* 2 

PBD1102 OUT OU LINEIPATCH/MERGE» 2 

DKA OUT SER MASTERF 0000000 « PATCH/MERGE* 2 

DKA IN SER PATCHES CANDElPATCH/MERGE* 2 

DKA OUT SER PATCHDE 0000000 t PATCH/MERGE* 2 

DKA OUT SER PATCHES CANDE IPATCH/MERGE* 2 

PATCHES/CANDE REMOVED 

PATCHES/CANDE/QOOQOOO* 285 SEGS--CREATED 01/13/77 AT Q4«0V156»43 

DKA PRG PATCHES CANDE JPATCH/MERGE* 2 
DKA LOK PATCHES CANDE JPATCH/MERGE* 2 
CDA RE|_ PMCARDlPATCH/MERGEs 2 



7END, 



PATCHDE/OOOOOOO/OOOOOOOs SeGS-^CREATeD 01/13/77 AT 00»2U23»33 

DKA REt PATCHDE OOQOOOQJPATCH/MERGE* 2 

PBD1102 REt OH LINE 10011 PATCH/MERGE* 2 

MASTERF/OOOOOOO/OQOQOOQ* 300 SEGS--CREATED 01/13/77 AT 16*18113146 

DKA REL MASTERF 0000000* PATCH/MERGE 8 2 

PATCH/MERGE" 2»PST» 30 EQJ 

PKT#1102 REMOVED 



LABEL OOOOOOOOOLINE 00177013? EXECUTE PATCH/MERGE PATCH /MERGE 

BURROUGHS B-57Q0 PATCH/MERGE PROGRAM MARK XVI, 0.00 THURSDAY* Ql/U/77* 4U8 PM, 



********** INPUT ********************************************************************************** 

$§CARD CONFLICTS LlSTI MERGE ZIP NEw 
$. 33 PATCHES FQR CANDE 

CARD INPUT IS PMCARD 
PATCHES/CANDE WIlL BE MERGED 
PATCH /CANDE IS NOT ON DISK 

** COMPILE NUCANDE/TSHARER WITH TSPQL LIBRARY 

S* TSPOL STACK » 1024 . COMMENT TSPQL STACK AlNPT BIG ENOUGH 

S* TSPOL FILE TAPE m SYMBOL/CANOE DISK SERIAL 

$* DATA CARD 

$- ***** THIS LISTING SHOWS PATCHES IMPLEMENTED AT UCSC ***** 

SRESET LIST SINGLE 
SSET TAPE 



$#PATCH NUMBER j. 1 FOR CANDE CONTAINS 1 CARD D 0101 

IF ACBASE+2)tCl«2J GTR THEN GO TO MESAGE* 25003400 D 0101 

$» THIS PATCH CORRECTS AN ERROR THAT WOULD ALLOW TWO OR MORE 0101 

*l JOBS TO BE ASSIGNEO TO A TERMINAL AT THE SAME TIME. THE 0101 

$« ERROR WOULD OCCUR IF AN INVALID "TO" MESSAGE WAS ENTERED. D 0101 



$#PATCH NUMBER 102 FOR CAnDE CqnTAInS 2 CARDS. D 0102 

T«-$CAN(PTR,a[BaSE +INDX3* IF 25001200 D 0102 

INDX* 1 THEN "Z" ELSE "9"» WQRKENDADRS* X ), 25001210 D 0102 

SI BY KFK D 0102 

S» OATE 8/1/74 D 0102 

$» IF THE QMARK TO [USERCQ0E3 CONSTRUCT IS USED AND THE USERCOOE D 0102 

$* CONTAINS AN ALPHANUMERIC CHARACTER* THE MESSAGE WILL NOT BE SENT. D 0102 

$l AND A "NOT ON" WILL BE THE REPLY. D 0102 



SrflPATCH NUMBER iQ3 FOR CANDE CONTAINS 1 CARD. D 0103 



D« 



A * 



**w '4f 



filesok*true; 55095500 o 0103 

St BY KFK 0103 

$1 DATA 8/1/74 D 0103 

St IF A MAKE IS ENTERED AND A DUPLICATE FILE OCCURS D 0103 

St SEVERAL BAD THINGS H A PP£N, IF THE NEXT COMMAND JS A LOAD D 0103 

St THEN THE FILE IS OK FOR A COPY TO PRINTER BUT A PRINT D 0103 

St WILL GET A NO FILE, 0103 



$#PATCH NUMBER 104 FOR CANOE CONTAINS 1 CARDS, D 0104 

IAM»*OJ WANT I* WAITFQR t* VMCPMSGJ TEMP I* 0; 27001800 D 0104 

St BY KK D 0104 

St DATE 11/15/74 D 0104 

Si THIS PATCH WILL CORRECT AN ERROR THAT COULD CAUSE CANDE TO BE DS-ED D 0104 

S> FOR AN INVALID INDEX, THE ERROR H A PPENS IF MANY JOBS ARE "CHAlN"ED* D 0104 

St THREE WORDS WERE LEFT IN THE PSEUDQ STACK FOE EACH CHAIN REQUEST FOR D 0104 

St A LINE, AND T H US AFTER SEVERAL JOBS WLRE RUN WITHOUT AN EOJ THAT DID D Q104 

St NOT REQUEST A CHAIN* CANDE WQULQ DQ AN INVALID INDEX, D 0104 



S#PATCH NUMBER 105 FOR CANDE CONTAINS 4 CARDS D 0105 

IF T s THEN ACBASED * *1 ELSE 59001800 D 0105 

CF * IF ACBASE] < THEN ELSE ACBASE3) 4 59004400 D 0105 

FILETYPEC32J42I6) & UNLUCKTOGGLE C3l«47»U); 59004450 0105 

IF AtBASE] 20 THEN WQRKC 3] , C2« 10 J *■ ACBASEJ* 59010700 D 0105 

St BY JTC - MSA CENTRAL D 0105 



S# PATCH NUMBER 400 FOR CANDE, XVl.O CONTAINS I CARD, MAKE "LIST LIBRARY" WORK 0400 

MATCH CWQRD#"LIBRARY") LIB ts TRUE ELSE 56007650 D 0400 

$t this patch allows the word "library" in the list verb (as per manual), d 0400 

St D 0400 

*« D,G, WILLMS, 9MAR76, BROCK U. PATCH 400 D 0400 



S# PATCH NUMBER 401 FQR CANDE,xvI»Q CONTAINS 2 CARDS, 7 CHARACTER HEADING D Q401 

OS t* 7 CHRi 00069800 0401 

TALLY Is 12; 00069900 D 0401 

St THIS PATCH CREATES A 7 CHARACTER HEADING FQR THE LIST VERB, THE VERB D 0401 

*t ALLOWS 7 CHARACTER NAMES, BUT ONLY LISTS THE FIRST 6 IN THE HEADING, D 0401 

St 0401 

St 0,G. WILLMS* 9MAR76, BROCK U. PATCH 401 D 0401 



S# PATCH NUMBER 402 FOR CANDE. XVl.O CONTAINS I CARD. CORRECT U-MARK STATUS 



D 0402 



IF (SEQl=EVENTS [3]) m - USEHCODE THEN A [8ASE+3J;sO; 44006600 D 0402 

SI THIS PATCH UPDATES Q-MARK STATUS. D 0402 

*' 0402 

Si THIS PATCH CORRECTS THE RESULTS OF A U-MARK STATUS REQUEST DONE D 0402 

S| WHILE A COMPILATION IS BEING DONE. IF THE COMPILER IS NOT IN CORE* D 0402 

*l THE SEQUENCE BEING COMPILED IS NOT KNOWN, THIS PATCH CAUSES CANDE TO D 0402 

st suppress «at seq gibberish* if the sequence number is not known. d Q402 

$l D 0402 

SI D,G» WILLMS* 1JUN76, BROCK U. PATCH 402 0402 



S# PATCH NUMBER 403 FOR CANDE. xVl.O CONTAINS 1 CARD Fix CHANGE TYPE WHKFLE 



D 0403 



goodobuisfalse; 62010350 d 0403 

$1 THIS PATCH UPDATES CHANGE TYPE, D 0403 

*! IF A USER CHANGES TH£ TYPE OF HIS WQHKFILE* HE WILL NO LONGER HAVE 0403 

Si A VALID OBJECT VERSION OF HIS WOKKFILE. 0403 

*' D 0403 

SI D,GtWtLLMS*llAUG76, BROCK U. PATCH 403 D 0403 



S# PATCH NgMBER 404 FOR CANDE, XVl«0 CONTAINS | 7 CARDS. FIX ABBREy. "TYPE" 

MATCH (VERBTABLE tA C S j , [9 I 9 3 J, C6 I 42 }> "TYPE " ) Go ^tY/T', 

^giULN- WHIcHl^i; GQ GETYPg ENOi - 

S VqidT 67000000 

call (notused); % 65 - was "type" 

"2type "# 3 m 3000400000000076 m * x #62 also 
si this patch changes change type, 
si verb "type" now goes through "change", 
st this is done to i) seduce similar code* 

** 2) allow abbreviations in type cas per manual), 

si prior to this change, cande would be upset at things like type i x, 

SI 

*» D.G.WILLMS, 1UUG76, BROCK U, PATCH 404 



0404 

00201010 D 0404 
0020102 -6-9-6-404 



65000000 

90316000 

90386000 D 0404 

D 0404 



0404 
D 0404 



D 
D 



0404 
0404 
D 0404 
D 0404 
0404 
0404 



D 
D 




s# patch number 405 for cande.xvi.o contains 11 cards, check for wqrkhle 



C 0405 



IF FILE^AMEsO THEN GOeR« C"NO FlLE"M>i 
" W0BKC9]t»0&UNITNUMBERC6!42l63; 
IF HAVEINPUTFILE 

THEN W0RKC9]|bW0RK[93&FILNAM1U2I6I36) 

else 
if filename'o 

then goerr cnu file"#u 

- ..... .ELSE W0RK[9]|*W0RKC9]&FILENAMEtl2l6l363 

LABEL Exit; 

IF FILENAMES THEN GQERR C M NQ FlLE"#i> ELSE % CASE 



52002650 
52025830 
52025860 
52025900 
52025930 
52025960 
52026000 
52026030 
75000350 
75000550 



0405 
0405 
0405 
0405 
0405 
0405 
0405 
0405 
0405 
0405 



DIT 


D 


0406 


58060000 


D 


0406 


58003000 





0406 


58065000 





0406 




D 


0406 







0406 




D 


0406 







0406 







0406 


TE*ETC). 





0406 




D 


0406 




D 


0406 



EXlTl 75002550 C 0405 

$1 THIS PATCH CORRECTS DELETE* PUNCH ANO UPDATE VERBS. C 0405 

*1 PRIOR TO THIS PATCH* NONE OF THE VERBS CHECKED TO SEE IF THERE WAS A C 0405 

it VALID WORKFILE. C 0405 

St THIS CAUSED "DELETE" TO GENERATE A SOURCE FILE ON DISK* C 0405 

$t "PUNCH" TO FIRE UP PUNCH/CANDE WHICH WOULD GET DS*ED ON C 0405 

SI A NO FILE ERROR* C 0405 

SI "UPDATE" TO RESPOND WITH "#" EVEN THOUGH THERE WAS NO WORKFILE, C 0405 

SI C 0405 

SI 0.G.WILLMSM3AUG76, fiROCK U. PATCH 405 C 0405 

SI MODIFIED BY DR* UCSG* 1/13/77 C 0405 



$# patch number 406 for cande.xvi.q contains 3 cards, fix mistake in loadit 

go exit; 
% void a card 

S VQIOT 58067000 

$1 THIS PATCH CORRECTS LOADIT. 

Si PRIOR TO THIS PATCH* IF LOADIT FOUND THE FILES NOT OK (IE. FILESOK * 

SI FALSE) IT WOULD SET wANTsVSETUPFJLES, UNFORTUNATELY IT DID NOT EXIT 

Si IN ORDER TO SET UP THE FILES, INSTEAD IT FELL DIRECTLY INTO THE 

SI DISPATCH OF lQAD/CANDE, AFTER LOAD/CANOE EQj> LQADlT WOULD ISSUE 

si a cancelckpt which would produce serious errors (segment zero qverwk 
si 

SI D,G,WlLLMS*l6AUG76, BROCK U. PATCH 406 



S# PATCH NUMBER ^07 FOR CANOE, XVl.O CONTAINS 3 CARDS. FIX MISTAKE IN CUPYIT D 0407 

LABEL SUFFIX; 52007012 D 0407 

IF LIBTOg THEN GO SUFFIX ELSE X"RESEQ" IS FILE-NAME 52009850 0407 

SUFFIXI 52012650 D 0407 

SI THIS PATCH UPDATES "COPYIT", D 0407 

St PRIOR TO THIS PATCH* "RESEQ" COULD NOT BE USED AS A FlLE"NAME, D 0407 

SI (IE. COPY SYMBOL/RESEQ WOULD RESULT IN COPYlNO 3YMB0L/ m USERC0DE" WITH 0407 

SI RESEQUENCING), D 0407 

SI D 0407 

SI D,G,WILLMS*18AUG76, BROCK U, PATCH 407 D 0407 



S# PATCH NUMB E R 501 FOR CAN D E*XVI»Q CONTAINS 63 CAR S, US E RC0dES START DIGITS o 0*0* 

%**##******************#********#***************************************00054702 D 0501 

PROCEDURE FIXUSER < CNTR* A* EX IT* BUMPCNTR ); VALUE bUMPCNTR* 00054704 D 0501 

INTEGER CNTR; ARRAY A CO); 00054706 D 0501 

LABEL EXIT; BOOLEAN BUMPCNTR* 00054708 0501 

BEGIN 00054710 D 0501 

REAL WORD; 00054712 0501 

INTEGER I*IBY6*LENGTH; 00054714 D 0501 

INTEGER STREAM PROCEDURE COUNTZERQ (A); VALUE A; 00054716 D 0501 



BEGIN 00054718 Q501 

si«*toc a; tally»*o; 00054720 d osoi 

8 (if sc eql "0" then begin ups; upt enu else jump out); 00054722 d 0501 

countzeroi-tally; 00054724 0501 

end of countzero; 00054726 d 0501 

IF (WORDIsA CINC (SrEG ) J ) , C I ' 5 ] EQL THEN 00054728 D 0501 

BEGIN 00054730 D 0501 

W0RD1=0ECC0NV (WORD); 00054732 0501 

IF LENGTHt«A C INC ( SREG ) ] . I 31 3J EQL. THEN 00054734 D 05O1 

GOERR (W0R0#8); 00054736 D 0501 

IF I !*8-C0UNTZER0 (WORD) > 6 THEN 00054738 D 0501 

GOERR CWQRD>8); 00054740 0501 

IF I EQL THEN I»*1J 00054741 D 0501 

IF LENGTHt«I+LENGTH > 7 THEN 00054742 0501 

GOERR CW0RD»8); 00054744 D 0501 

IBY6J*I x 6; 00054746 D 050t 

A CSREG3»»0 & WORD C6148-IBY6HBY63 & 00054748 0501 

A CSrEG] C6+IBY6I6I(7-I)x6] & LENGTH C3I45I3J* 00054750 0501 

OECR (SREG); 00054752 D 0501 

IF BUMPCNTR THEN 00054754 D 0501 

INC (CNTR); 00054756 0501 

END 00054758 D 0501 

ELSE 00054760 D 0501 

OECR (SREG); 00054762 0501 

END OF FIXUSER; 00054764 0501 

ELSE IF W8RD EQL V" THEN 42002700 D 0501 

IF SREG + 2 LEQ MAXSKEG THEN FJ XUSER( I* A/EXI T*F ALSE ) EL3E420Q2710 D 0501 

ELSE 42002780 I) 0501 

GOERR (WORD, 8); 42002785 D 0501 

LABEL NUMUSER; 52007015 D 0501 

NUMUSER* 52Q12305 D 0501 

IF INPCOUNT + 2 LEQ NPARAMS THEN 52012310 D 0501 

FIXUSER (INPCOUNT»A#£XIT*TRUE); 52012320 D 0501 

GO TO NUMUSER/ 52015950 D 0501 

LABEL NUMUSER; 56000450 D 0501 

IF LIB »* (CHAR »» WOROtCF) * »/" THEN 56004700 0501 

NUMUSERI 56004705 D 0501 

IF I ♦ 2 LEQ PC THEN FJXuSER ( I* A* EXIT* TRUE ) ELSE 56004710 D 0501 

ELSE 56004790 D 0501 

MATCH(WQRD# w LlBRARY n ) BEGIN LIB**TRUE;GQ NUMUSER END EL»E56007650 0501 

LABEL LIBNAME; 57041500 0501 

LIBNAMEI 57089500 0501 

IF SREG * 2 LEQ MAXSREG THEN FIXUSER (T, A* EXIT* FALSE )J 57091100 D 0501 

GO TO LIBNAME 57113000 0501 

S VQIDT 57H7000 57114000 D 0501 

IF LIB Is WQRD.CF * "/" THEN 72003805 D 0501 

IF.TOIT THEN GOERR ("NO U5£R"*39) ELSE 72003810 0501 

IF I + 2 LEQ PC THEN FIXUSER C I, A»EXIT*TRUE) ELSE 72003820 D 0501 

ELSE 72003900 D 0501 

GOERR (WORD'S); 72003905 D 0501 

IF HAVEUSER THEN GO ERR ELSE 74009000 D 0501 

BEGIN 74009005 0501 

FROMIsTRUe; 74009010 D 0501 

IF I ♦ 2 LEQ PO THEN FIXUSER ( I , A#EXI T> TRUE ) ; 74009020 D 0501 

END 74009095 D 0501 

Si THIS PATCH ALLOWS USERCODES STARTING WITH DIGITS IN ALL THE D Q5Q1 

*1 CANDE VERBS WHICH ALLOW USERCODES, D 0501 



St 

SI 
St 



D.G. WILLMS#26FEB76, BROCK U. PATCH 501 
PATCH REWRITTEN 26MAY76 - D.G. W1LLMS. 



0501 
0501 
D 0501 



$# PATCH NUMBER 502 FOR CANDE, XVi,0 CONTAINS 16 CARDS, "EXECUTE OBJECT" 



St 
St 
St 
Si 
St 
St 



XMFID ALREADY GIVEN 



SpECNAME s ACBASE+9],tl7t01)#, % NO "0" IN MFID 

BOOLEAN OBJECTTOGGLE; 

ELSE WATCH <WQRD#"OBJECT ") 
BEGIN 

MATCH CVERBWORD>"EXECUTE") 
IF NAMEWORD C0J * THEN ERROR (8) 
ELSE OBJECTTOGGLE »* TRUE 
ELSE ERROR (8) 
END 

IF NOT OBJECTTOGGLE THEN 
IF OBJECTTOGGLE THEN 

IF NAMEWORD [0] * THIN GOERR ("INCQMPL">6 J 
ELSE SPECNAME »* \i 

FIND CLL&IAM C33J4l«7j,Q f IF SPECNAME a I THEN NAMEWORD tOj ELSE 
NAMEWORO [03, 16*363, NAMEWORD C 1 3 #USERCQDE )* 
RUN! la IF SPECNAME * I THEN NAMEWORD CO] ELSE NAMEWQRD t0j,[6l36Ji 
THIS PATCH EXTENDS THE EXECUTE VERB SYNTAX. IF THE WORD "OBJECT" 
APPEARS BETWEEN EXECUTE AND MFID* THEN THE MFlD WILL NOT BE FUDGED 

INSERTED IN MFID>« THUS MFIO CAN BE 7 



(IE. EXECUTED AS IS* 
CHARACTERS In LENGTH 



NO "0" 



57019500 
57043500 
57092100 
57092200 
57092300 
57092400 
57092500 
57092600 
57092700 
57106500 
57126100 
57126200 
57126300 
57202000 
57202500 
57228000 



D.G, WILLMS* 26FEB76, BROCK U. PATCH 502 



D 0502 

D 0502 
D 0502 
0502 
D 0502 
D 0502 
0502 
D 0502 
D 0502 
D 0502 
0502 
D 0502 
D 0502 
0502 
D 0502 
D 0502 
D 0502 

D 0502 
D 0502 
D 0502 
D 0502 
D 0502 
D 0502 



S# PATCH NUMBER 506 FOR CANOE, XVI, CONTAINS 11 CARDS, CORRECT FILETYPE 



GETTYPE CFI L ETYPE); VAL.UE FIlETYPE; INTEGER FIlETYPE* 



%, , 

alpha procedure 

BEGIN 

IF FILETYPE GTR NUMQ 
GETTYPE**IF BOOLEAN 
TYPeTABLE 
END OF GETTYPE; 
S VQIDT 

PRINTIT (A [BASE ♦ 1] 
S VQIDT 7402080Q 

PRINTIT (A CBASE ♦ U 
THIS PATCH WILL CAUSE 

n handles the "list, 

WOULD DETERMINE THE F 
A ZERO INDICATED OBJE 
TO BE INCORRECT FOR f 
NOTE " CANDE HANDLES 
INSTEAD OF FIRING UP 



FTYPES THEN FILETYPE»*0; 
(WORK m,UQ!lJ) THEN " 
CFILETYPE! C30«6»6] ELSE 



OBJC ) " & 
TYPeTABLE CFILeTYPeJJ 



*GETTYPE (WORK 1 4 ] , [ 36 I 6 i ) ); 



St 
*! 
St 
S| 
St 
Si 

St 
SI 
St 



•GETTYPE (WORK [4],C36I6 
CANDE to set THE FlLETY 
FILES FILE-NAME" REQUEST 
ILE TYPE (IE, SOURCE OR 
CT WHILE A NONZERO MEAN 
UNNY FILES (IE, NON-TSS) 
A LIST FILES REQUEST IF 
LFILIS/CANDE, 



,74007010 
74007020 

74007030 
74007040 
74007050 
74007060 
74007070 
74019200 
74019300 
74020600 
74020800 



PE FROM THE DIRECTORY WHEN 
i PRIOR TO THIS PATCH CANOE 
OBJECT) FROM THE NAME. 
T SOURCE, THIS CAUSED THE TYPE 

ONE FlLE-NAME IS REQUESTED 



D,G, WILLMS* 31MAR76, BROOK U. PATCH 506 



D 0506 

D 0506 
0506 

D 0506 
0506 
D 0506 
D 0506 
0506 
0506 
0506 
0506 
0506 
0506 

0506 
0506 
0506 
0506 
0506 
0506 
D 0506 
D 0506 



D 



D 
D 


D 
D 
D 
D 




s# patch number 5oe for cande.xvi.o contains 2 cards, remove 7-character names osos 

IF S AND THEN Et.SE 61001750 D 0508 

IF X. [42«63 EQL » " THEN 61002950 D 0508 

*l THIS PATCH WILL ALLOW A USER TO REMOVE FILE NAMES 7 CHARACTERS IN LENGTH, D 0508 

$ ' D 0508 

SI D,G, WILLMS* 5APR76, BROCK U. PATCH 508 q 0508 



S* PATCH NUMBER 510 FOR CANDK.XVl.O CONTAINS 1 CARD, 5 CHUNKS FQR LIST 

MATCH(RUN1#"LIST ") CHUNKSl*6 ELSE 
St THIS PATCH CHANGES THE CHUNK SIZE FOR LlST/CANDE TO 6 FROM 5. 
St THIS SHOULD STOP THE EXPANDED (NO MEM) CONDITIONS, 

it 

*» 0,G. WILLMS, 7APR76. BROCK 1. PATCH 510 



D 0510 

27002600 D 0510 
D 0510 
D 0510 
D 0510 
D 0510 



i* PATCH NUMBER 514 FOR CANDE»XVltO CONTAINS 14 CARQS, "COMPILE SPECIAL" 

COMPNAME * ACBASE+10]## % SPECIAL COMPILER 57020500 

SAVESIZE = 11*; % WOROS USED ABOVE 57021000 

ELSE MATCH ( WOrD* m SPECI AL" ) IF TYPEWQRO EQL THEN 57092800 

TYPEW0RD1 8 99 ELSE ERROR (8) 57092900 

IF TYPEWORD EQl 99 THEN IF CQMPNaME E«U THEN 57103100 

COMPnAME *■ WORD ELSE ERROR (8) ELSE 57103200 

IF TYPEWORD EQL 99 THEN 57126400 

IF COMPNAME EQL THEN GQERR C"INC0MPL">6 ) i 57126500 

CHKTYPEI IF TYPEWORD NEQ 99 THEN 57150000 

BEGIN 57150100 

IF NOT BOOLEAN ( C T isTYPETABLE C TYPE WORD 3 J . C I 113) THEN 57150200 

END; 57151300 

RUN2»sIF COMPNAME EQL 8 THEN TYPETABLE C TYPEWORD 3 . 1 6 I 42 3 ELSE 57177000 

COMPNAME; 57177050 
SI THIS PATCH ALLOWS SPECIAL COMPILERS UNDER CANDE, THE SYNTAX IS 
SI "SPECIAL" COMPILER-NAME, IE, C SPECIAL ALG0L16 WITH LISTING. 
St 
SI D t G. WILLMS, 20APR76. BROCK U. PATCH 514 



D 0514 



0514 

0514 
0514 

0514 
0514 

0514 
0514 
0514 
0514 
0514 
0514 
0514 
0514 
0514 
0514 
0514 
0514 
0514 



S# PATCH NUMBER 516 FOR cande.xv!* CONTAINS 85 cards, security COMMANDS 

DEFINE SECURE ( SECUrEI* SEcUrE2# SECURE3* SECURE4 ) * 

C0M157 (LL&14 C33*4ll*3,7#SECUREl#SECURE 2 'USERC0DE#SECURE3* 
SECURE4) #J 
BOOLEAN SLASH, NAM3;NAM4; INTEGER FOHGETSET; 
LABEL CHECKUSER* SELECTlT; 



D 0516 

00041800 D 0516 
00041900 D 0516 
00042000 D 0516 
68000550 D 0516 
68000650 D 0516 



A CBASE+1 ]1-S0URCEFILE; X OEFAULT FILE NAME 68001400 0516 

IF A CI3.C3I33 * THEN X NOT A LETTER STRING 68002600 D 0516 

IF A [I] s "/" THEN 68002610 D 0516 

IF S L ASH THEN GO ERR1 68002620 0516 

ELSE IF WTH THEN IF NAM2 THEN 68002621 0516 

BEGIN 68002623 D 0516 

CHECKUSER» 68002625 D 0516 

SLASHt»TRUE; 6800262? 0516 

IF I + 2 LEQ IMAX THEN 68002628 D 0516 

BEGIN SREGIsi; 68002629 0516 

FIXUSERU>A#EXIT*TRUE) END* 68002630 D 0516 

END 68002635 0516 

ELSE GO ERR1 68002640 D 0516 

ELSE IF NAM! THEN GO CHECKUSER 68002650 D 0516 

ELSE GO ERR1 68002660 D 0516 

ELSE 68002670 Q 0516 

GO ERR1 68002680 0516 

ELSE 68002685 D 0516 

BEGIN 68002690 0516 

IF SRC THEN GO TO ERR1> 68003000 D 0516 

IF WTH 68003050 0516 

OR OBJ THEN BEGIN FQRGETSET * «2J GQ SElECTIT END# 68003100 D 0516 

SRCi*TRUE; 68003150 0516 

IF OBJ THEN GO TO ERR1' 68003500 D 0516 

IF WTH 68003550 0516 

OR SRC THEN BEGIN FQRGETSET » *1J GO SELECTIT END* 68003600 D 0516 

OBJl*TRUE; 68003650 D 0516 

IF SLASH THEN IF NAM4 THEN GO SELECTIT 68004510 D 0516 

ELSE BEGIN A [ BASE+7 1 J «WQRD* 68004520 D 0516 

SLASHI*FALSE; 68004525 D 0516 

NAM4JBTRUE END 68004530 D 0516 

ELSE 68004540 0516 

IF NAM2 THEN GO SElECTIT ElSE BEGIN 68004600 D 0516 

END 68004850 0516 

IF OBJ THEN 68005110 D 0516 

IF WORD, [4216] NEQ w " THEN 68005120 D 0516 

GOERR (W0RDM2)* 68005130 D 0516 

IF SLASH THEN IF NAM3 THEN GO SELECTIT 68005511 D 0516 

ELSE BEGIN A CBASE + 6] I *WQRDJ 68005513 D 0516 

SLASHJ»FALSE; 68005514 O 0516 

NAM3»*TRUE END 68005515 D 0516 

ELSE BEGIN 68005517 D 0516 

SELECTIT! 68005518 D 0516 

END; 68005535 D 0516 

END* 68005540 D 0516 

IF S^ASH OR (NOT nAMI) OR CwTH AND NOT NAM2) THEN 68005800 D 0516 

GOERR C H INCMPLT w *6)i 68005850 0516 

A CBASE+5jl«REAL (SRC) & REAL C0BJK46U7U] & FORGETSET [44 « 46 1 2 }>68005950 0516 

IF NOT NAM3 THEN A [BASE+63 » 3 USERCODE; 68005960 D 0516 

$ VOIDT 68006200 D 0516 

A CBASE+3]!* - A [BASE+2]; 68006210 0516 

A CBASE+43«aIF NAM4 THEN A CBASE+7] ELSE USERCQDEJ 68006220 0516 

FIND (LL&IAM [33173*0, A [BASE*2J,A CBASE + 4 3,uS£RC0DE )} 68006300 Q 0516 

TEMPI*/' 68006400 D 0516 

IF NOT OBJ THEN SECURE ( ACBASE+ 1J> ACBASE+6J* A[BASE*3J> A CBASE+4 } }> 68007000 0516 

IF A CBASE*13.C42J6] EQL " " THEN 68007050 0516 

IF NOT SRC THEN SECURE <A CBASE + U • C6 « 36] $ A [BASE+6],A CBASE+3], 68007100 0516 



A [BASE+4JJJ X OBJECT 68007150 D 0516 

TEMP»»6J 68007200 0516 

PARAM«sJF SRC OR OBJ OR A C 8ASE + 1 J . [ 42 J 6 ] NEO " M THEN 1 ELSE 2> 68007300 D 0516 

A CBASE+5],[42»2]l*PARAM; 68007350 D 0516 

IF EVENTS Cl] LSS THEN % NO GUARD FILE 68008200 0516 

WORD»*A CBASE+2]; 68008400 D 0516 

WORD*»A [BASE+2]; 68009000 0516 

* VQIDT 68009800 68009600 D 0516 

WORDi*A CBASE+5],C42«2] + 5; 68010110 0516 

FOR I»«6 STEP 1 UNTIL WORD DO 68010120 D 0516 

IF A CBASE+I3 NEQ 7 ThEN * SECURITY MAINTENANCE IGNORED 68010200 D 0516 

LITOUT ("ERRJ "*N0CRLF)i 68010400 D 0516 

IF A C8ASE + n,C6t6] EQL THEN 68010510 0516 

BEGIN 68010520 0516 

A CBASE+I],[6lS3|s"*"> 68010530 0516 

IF A CBASE+IJ.C12I6J LEQ 9 THEN % It "Q1S010" 68010540 D 0516 

A CBASE*I].Cl2l363«sFILENAME»t6J36]; 68010550 0516 

END; 68010560 D 0516 

LITOUT C- A [BASE+I3»CRLF)J 68010600 D 0516 

IF B CFQRGETSET«*A CBASE+5 } , [ 44 » 2 3 ) THEN SRCIsFALSE 68010842 D 0516 

ELSE SRCIbB (A CBASE+53); 68010844 D 0516 

IF FORGETSET « 2 THEN QBJJsFALSE 68010846 D 0516 

ELSE QBJI»B (A CBASE+5](C46tl])J 68010848 D 0516 

THIS PATCH UPDATES THE SECURITY COMMANDS "LOCK"* "PUBLIC* AND "UNLOCK"* D 0516 

D 0516 

1, <SECURITY COMMAND> NOT FOLLOWED BY A FILE NAME WILL NOW CORRECTLY D 0516 
ACCESS THE WORK FILE. PRIOR TO THIS PATCH* CANDE WOULD TRY TO D 0516 
ACCESS THE WORK FILE USING THE USER"S NAME (IE. FILENM) INSTEAD OF D 0516 
THE SYSTEM NAME (IE, 1S###), THE RESULT WAS EITHER AN ERROR IF THE D 0516 
FILE WAS NOT IN THE USER»S LIBRARY* OR CANOE WOULD UPDATE A LIBRARY FILE 0516 
OF THAT NAME INSTEAD OF THE WORK FILE, D 0516 

D 0516 

2, THE "♦" H A 5 BEEN REMOVED FROM THE FILE NAME IN TH£ ERROR MESSAGES, D 0516 

D 0516 

3, ERROR MESSAGES FOR OBJECT FILES HAVE THE FIRST "0" REPLACED WITH AN "*", D 0516 

D 0516 

4, CANDE WILL NOW REPORT AN ERROR IF THE OBJECT FILE IS NOT IN THE DIRECTORY 0516 
ON A <SECURITY CQMMAND> <FIlE NAME> INPUT, PRIOR TO THIS CHANGE* CANOE D 0516 
WOULD ONLY REPORT ERRORS FOR SOURCE FILES (UNLESS <SECURITY C0MMANO> D 0516 
"OBJECT" WAS INPUT), D 0516 

D 0516 

5, USERS ARE NOW ALLOWED TO SPECIFY A SUFFIX UN BOTH THE FILE NAME AND D 0516 
GUARD FILE NAME* IF IT FOLLOWS A "/", D 0516 
EG, LOCK A WITH C/D D 0516 

LOCK A/B D 0516 

LOCK A/B WITH C D 0516 

LOCK A/B WITH C/D D 0516 

PUBLIC A/B D 0516 

UNLOCK A/B D 0516 

D 0516 
**WARNING** - REQUIRES PATCH # 501 FOR "FlXUSfcR" 0516 

•♦NOTE** - McP DOES NOT CHECK SECURITY - NEEDS MCP PaTCH # 563, D 0516 

D 0516 
D.G.WILLMS - 25MAY76, BROCK U, PATCH 516 D 0516 



$# PATCH NUMBER 517 FOR CANDE.XVl.O CONTAINS 76 CARDS. WHATS A/B 



D 0517 



BOOLEAN OBJ#SLASH; INTEGER I*Pc* REAL WORD; 
A CBASE+23»=USeRCODE; 
ELSE 
BEGIN 
SLASHi«OBJ»*BOQLEAN (A CBASE+2]»sA [BASE+1 J I si » *0) ; 

pci*a cbase]; 
while i lss pc do 

BEGIN 

INC en; 

WQRDtwA [jnc (SREG)]J 

IF W0RD,C3>3] GTR THEN % LETTER STRING 
BEGIN 

W0RDI*W0RD.C6«42]; 
MATCH (W0RD^ M 0BJECT " ) 

QBJIsTRUE 
ELSE 
IF A [BASE+13 EQL THEN 

A [BA3E*1]»*WQRD 
ELSE 
IF A CBASE+2] EQL THEN 
IF SLASH THEN 
BEGIN 

a [base+2]j*wqrb; 
slashisfalse; 

END 
ELSE 
GQERR (WORD'8) 

ELSE 
GOERR (WORD, 8) 

END 
ELSE 
IF W0RDtCl!2] EQL 1 THEN X SPECIAL CHARACTER 
IF WORD EQL "/" THEN 

if slash then 
goerr (word, 8) 

ELSE 
BEGIN 

SLASHtsTRUE; 
IF I + 2 LEQ PC THEN 

FIXUSER CI,A>EXIT,TRUE>* 
END 
ELSE 
GOERR (WQRD*8> 
ELSE 
BEGIN 

wordisdecconv (word); 

goerr cw0r0»8); 

end; 
end; 

if slash then goerr c" i ncmplt w >8 ); 
if obj then 

IF A CBASE+U EQl THEN 
IF GOODOBJ THEN 
BEGIN 
A CBASE+l]l=SoURCEFlLE.t6;36]; 



64000550 


D 


05] 


17 


64005950 


D 


05] 


17 


64006010 


D 


05] 


L7 


64006020 


D 


05] 


L7 


64006030 


D 


053 


i7 


64006040 


D 


05! 


L7 


64006050 


D 


05] 


17 


64006060 


D 


05] 


[7 


64006070 


D 


05] 


17 


64006080 


D 


05! 


17 


64006090 


D 


05] 


17 


64006100 


D 


05] 


[7 


64006110 


D 


05] 


[7 


64006120 


D 


05] 


17 


64006130 


D 


05] 


[7 


64006140 


D 


05] 


[7 


64006150 





05] 


\7 


64006160 


D 


05] 


17 


64006170 


D 


05] 


17 


64006180 


D 


05] 


17 


64006190 


D 


05] 


17 


64006200 





05] 


17 


64006210 


D 


05] 


[7 


64006220 


D 


05: 


[7 


64006230 


D 


05 


17 


64006240 


D 


os- 


17 


64006250 


D 


os. 


[7 


64006260 


D 


05] 


L7 


64006270 


D 


051 


17 


64006280 


D 


05] 


17 


64006290 


D 


05! 


17 


64006300 


D 


05] 


17 


64006310 


D 


os- 


17 


64006320 


D 


os: 


17 


64006330 


D 


051 


17 


64006340 


D 


05 


17 


64006350 


D 


052 


17 


64006360 


D 


05 1 


17 


64006370 


D 


05] 


17 


64006380 


D 


05! 


17 


64006390 


D 


05] 


17 


64006400 


D 


05] 


L7 


64006410 


D 


05: 


17 


64006420 


D 


05] 


17 


64006430 





05! 


17 


64006440 


D 


05] 


17 


64006450 





05] 


L7 


64006460 


D 


os: 


17 


64006470 


D 


OS 


17 


64006480 


D 


05] 


17 


64006490 


D 


95: 


17 


64006500 





05] 


17 


64006510 


D 


05] 


17 


64006520 


D 


OS] 


17 


64006530 


D 


05] 


17 



Si 

$1 

$: 
Si 
$i 
St 
St 
Si 

SI 



A [BASE3l*0; 64006540 

END 60006550 

ELSE 64006560 

GOERR ("NO FIlE'M) 64006570 

ELSE 64006580 

A [BASE + ntsA [BASE*l],C6l36]j 64006590 

IF A [BASE+23 EQL THEN 64006600 

A [BASE+2] l*USERCODEi 64006610 

END; 64006620 

GO TO CASEi; 64006630 

END; % CASE 64006640 

A CBASE+23I»USERCQDE; 64006950 

FIND CLL&IAM [33«41«7], 0, A [BASe<UJ»A [BASE+2]#US£RC0dE )i 64007100 

IF A CBASE + U,C6»63 EQL THEN A C8ASE+13 , 1616 3 I *"*"; 64007650 

IF EVENTS m LEQ THEN 64007700 

BEGIN 64007710 

GOERR (A CBASE + U*2); 64007730 

END; 64007740 

MSG (L#IF A CBASE + U.C6I6] EQL ,, * ,, THEN 8, "*" [614216] & 64008900 

FILENAME C12I6I363 ELSE FILENAME* TRUE' TYPET ABLE [FILETYP£3# 64008950 

WORK C73+l»DATE*TM#WORK [33 f [2«lQ3) 64009000 

THIS PATCH UPDATES THE WHATS COMMAND. 



A USER CAN NOW 
EG. WHATS A/8. 



SPECIFY A FID IN THE WHATS COMMAND. 



A USER CAN ALSO NOW ACCESS HIS OBJECT WORK FiLE VIA WHATS OBJECT. 

**WARNING** - REQUIRES PATCH f 501 FOR FIXUSEH, 
D.G, WILLMS* 31MAY76, BROCK U. PATCH 517 



0517 
0517 
0517 
0517 
0517 
0517 
0517 
0517 
0517 
0517 
0517 
0517 
0517 
0517 
0517 
0517 
0517 
0517 
0517 
0517 

0517 
0517 
0517 
0517 
0517 
0517 
0517 
0517 
0517 
0517 



it PATCH NUMBER 518 FoR CANDEiXVl.Q CONTAINS 92 CARDS 

'ILE4,CHANGEFILE5)*CC15 ( CH ANGEFILE1 #5, CH ANGEFILE2* 
•lLE3#CHANGEFIt.E4#CHANGEFlLE5#USERC0DE) #J 

i l; 

[NC(SREG)3 EQL V" THEN 

i 

l*T-(SREG"S) EQL THEN GO TO BADPARAM; 

GEQ 2 THEN FIxUSER < S>A,EXI T»F ALSE )i 

CINC(SREG)3.[3«33 GTR THEN 
:BASE+53I«A CSREG3. [61423 

go to badparam; 
:sbeg>; 



^se+53i»usercode; 

:a [sreg3.[6i42]#"type 

>13>»A [SREG3 t [6t42]; 
NCCSREG)] EQL "/" THEN 



) go getype; 



l*T*CSREG-S) EQL THEN GO TO BADPARAM; 
GEO 2 THEN FIxUSER CS* A#EXIT»FALS£); 
[INC(SREG)3.[3»33 GTR THEN 



"CHANGE" 


COMMAND 


D 


0518 


ILE2* 


00041200 


D 


0518 




00041300 


D 


0518 




00200420 


D 


0518 




00205400 


D 


0518 




00205405 


D 


0518 




00205410 


D 


0518 




00205415 


D 


0518 




00205420 





0518 




00205425 


D 


0518 




00205430 


D 


0518 




00205435 


D 


0518 




00205440 





0518 




00205445 





0518 




00205450 


D 


0518 




00205455 


D 


0518 




00206300 


D 


0518 




00206305 


D 


0518 




00206310 


D 


0518 




00206315 


D 


0518 




00206320 


D 


0518 




00206325 


D 


0518 



AJ&- 



>-^ 



3jU> 



IXH 



A CBASE+ 
ELSE GO TO 

END 
ELSE 

BEGIN DECR 
A [BASE+63 
TEMPI*6; 
VQIO A CARD 
FIND (LLUAM 
FIND CLL&IAM 
FIND UL&IAM 
IF A CBASE+1 



63»*A CSrEG].C6S42] 
BAOPARAm* 



(SREG)i 

i*usercode; end; 



FIND CLL&IAM 
TI*IF SCHEDU 
D0ING'"2; 
IF A CBASE+5 
TI*LL & VMCP 
CHANGEFILE C 
IF A CBASE3. 
BEGIN 

PARAM»*LIBMS 
CHANGEFILE ( 

END 

ELSE 

PARAM»«LIBMS 

% VOID A CARD 

* VQIDT 

IF A EBASE+6 
IF A EBASE+5 
% VOID A CARD 

MAKEFILE 
D0ING«*6; 
LLDlSKREAD»» 
WANTIeVDISKRE 

doingmu; 

IF A EBA5E+1 
FIND <LL&IAM 

* VOIDT 
BEGIN 



C33I41I73'0#MAKEFN C" 1S"»LL )f USERCODE* USERCODE )i 
[33»4H73,0,A [BASE], A (BASE + 5]#USERCQDE> J 
[33*41*7^0, A CBASE + U#A CBASE+63* USERCODE )i 
3 * 2 THEN IF A [BASE 3 , [42 I 6 3 EQL " " THEN 

A CBASEJMA [BASE3. 16*363 ELSE 
GQERR (A [BASE3M2J> 
C33I41»73#0»A [BASEJ,A tBASE*53#USERCQDE >; 
LINE AND BOOLEAN C SCHEDNAME . C U 1 3 > THEN ELSE 3; 

3 EQL USERCODE THEN 

MSG [33»4l»n; 

T>A CBASe+13,A CBASE+53»A CbASE+2J#A [BASE+63)i 

[42*63 EQL M " THEN 

rfTH ! a? I 

T'A CBASE+33'A [BASE+53>A CBASE + 4-l'A [BASE+63)i 



gctr:«i; 



3 NEQ 7 THEN GOERR (- A CBASE+6]#2); 
3 EQL USERCODE THEN 

<LLil3C33|4li7],l,MAKEFN ( "15"*U ) ' USERCODE* FILETYPE* 



jpdkadr; 
ad; 



X GET EOF POINTER RECORD IN "IP" FILE 



LITOUT 
UTOUT 

iammo; 



end; 

BEGIN 
IF 



3 GTR OR A CBASE3.C42163 NEQ " n THEN 
[33*41*73*0, A [BASE3.[6»363*A [BASE+53*U5ERCQ0E ); 

("ERR* M #NOCRLF); 

(0 & «*» [6*42*63 & A CBASE3 C 12*6 X 36 3 *CRLF )i 
GO TO exit; 



11 - "IP" EOF POINTER IN CORE 
TENS THEN « EOF POINTER 

«»FILETYPE; X NEW FILE TYPE 
CTPDKAOR); X REPLACE EUF POINTER 



K CASE 
WORK t03a 

BEGIN 
WORK [203 

DISKWRITE 

iami=o; 

END 

ELSE 

BEGIN 

IF WORK C 
A CBA 
ELSE 
IF WORK C203»TEN8 THEN 



X RATS - FILE TYPE IN NEXT SEGMENT 



103«TEN8 THEN 
iSE3l*0 



00206330 D 05 

00206335 05 

00206340 D 05 

00206345 D 05 

00206347 D 05 

00206350 D 05 

62000500 D 05 

62001800 05 

62001900 D 05 

62002500 D 05 

62003000 D 05 

62004563 05 

62004564 D 05 

62004565 05 

62004566 05 
62004900 D 05 
62005200 05 
62005680 D 05 
62007100 D 05 
62007200 05 
62007210 05 
62007220 05 
62007230 05 
62007300 05 
62007400 05 
62007410 D 05 
62007420 D 05 
62007500 D 05 
62007800 D 05 
62008200 D 05 
62008250 D 05 
62008800 D 05 

0>;62Q08900 D 05 

62009900 D 05 

62010375 D 05 

62010400 D 05 

62010450 D 05 

620H500 D 05 

62011600 D 05 

62011900 D 05 

62012500 D 05 

62012550 D 05 

62012600 D 05 

62012650 05 

62013502 D 05 

62013504 D 05 

62013506 05 

62013508 D 05 

62013510 D 05 

62013512 D 05 

62013514 D 05 

62013516 D 05 

62013518 05 

62013520 D 05 

62013522 D 05 

62013524 05 

62013526 D 05 



% CANT FIND 
EXIT END/ 



EOF MARKER • GIVING UP 



A [BA$EJi*10 
ELSE 

BEGIN IAMS=0; GO 
D0ING»*12; 
LlDISKREAO»=TPDKADR+i; 

wants«vdiskread; 

temp*»i; 

end; 

end; X CASE 11 

BEGIN * CASE 12 - FINALLY GOT FILETYPE IN "IP" EOF RECORD 

WORK U CBASEH JsFILETYPE; 
DISKWRITE CTPDKADR+1); 
IAMI»0; 

end; % case 12 
this patch updates the change command. 



62013528 
62013530 
62013532 
62013534 
62013536 
6201353B 
62013540 
62013542 
62013544 
62013546 
62013548 
62013550 
62013552 
62013554 



THIS PATCH 
NEW FILE. 
EG, CHANGE 
CHANGE 



ALLOWS A USER TO SPECIFY 
THE FORMAT IS MFID/FIO, 
A/B TO C/D 
SOURCE A/B FACTOR TO 8 



A FID ON BOTH THE OLDFILE AND THE 



**WARNING** m REQUIRES PATCH * 501 FOR "FIXUSfcR" 

**NOTE** - MCP DOES NOT CHECK SECURITY - NEEDS MCP PATCH * 56; 



D,G,WlLLMS# 1JUN76, BROCK U. PATCH 518 
PATCH UPDATED 13AUG76. D.G.WILLMS. 

CANDE WILL NOW UPDATE THE "IP" FILE ON A WORKFlLE TYPE 
-. THIS IS DONE SO THAT CANDE WILL REMEMBER A TYPE CHANGE 



CHANGE 
ACROSS 



A H/Lf 



D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 

D 

D 
D 
D 

D 
D 
D 
D 
D 
D 

D 
D 



0518 

0518 

0518 

0518 
0518 

0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 
0518 

0518 

0518 

0518 

0518 

0518 

0518 

0518^ 

0518 

0518 

0518 

0518 

0518 





S# PaTcH NUMBER 519 FOR CANDE.XVI.O CONTAINS 9 CARDS EOj MESSAGE 



D 0519 



SI 

$1 
Si 
St 
SI 
SI 



STREAM PROCEDURE LQADCQDE (PLACE); 
BEGIN 

DISPLACE; DIlsDU2; 
05**6 LIT " PST "; DI«»DI+26; 
DS1«6 LIT " IQT* «; 

END OF LOADCODE; 

TIMEUSEO (WORK C6],TIMEC0NV (EVENTS £4 J » C 16 * 32 ] .FALSE) ); 
LOADCODE (WORK [53); 
TWXOUT (LL.WORK [03*72*2); 
THIS PATCH UPDATES CANDE EOJ MESSAGE. 



14052610 
14052620 
14052630 

14052640 
14052650 
14052660 
14213100 
14213200 
14215000 



CANDE WILL 
THE FORMAT 



NOW GIVE BOTH 
IS <PST TlME> 



PROCESS 
PST <I0 



& 10 TIMES 
TIME> IOT, 



REQUIRED FOR EACH JOB STEP, 



D,G, WILLMS* 2JUN76, BROCK U, PATCH 519 



0519 
0519 
0519 
0519 
0519 
0519 
0519 
0519 
0519 
0519 
0519 
0519 
0519 
0519 
0519 



*# Patch number 520 for candI.xvi.q contains 1 card. "Remove* verb 



D 0520 



S VQiOT 61002900 

s» this patch updates the remove procedure. 



61002810 0520 
D 0520 



St A USER CAN NOW REMOVE A FILE IF IT HAS A NAME THAT IS A VERB (IE. BYE), 

$1 PRIOR TO THIS PATCH* A USER COULD CREATE THE FILE OR CHANGE ITS NAME 

St BUT HE COULD NOT REMOVE IT. 

SI 

SI D»G t WILLMS, 11JUN76, BROGK U. PATCH 520 



0520 

0520 

0520 

D 0520 

D 0520 



S# PATCH NUMBER 521 FOR CANDE.XVl.Q CONTAINS 18 CARDS. 1"RQW USERS/CANDE 



D 0521 



% BASE ADDR OF USERS/CANDE 



fUSERBASE+I/ 

>userbase+usr; 

CW)J 



USERBASE* 
S VQIDT 00015200 

LLDISKREADlsl 
USERLOCI*l 
STREAM PROCEDURE ERR 
BEGIN 

or t*w; dsib3iht w users/canoe h a s more than i row*; os«*ht"* m ; 
end qf err; 
integer ij 

for pml step 1 until 29 do 
if work [13 gtr then 

BEGIN 

ERR U); TWXOUT (O'L C03#32* 1); 

XlaO/OJ X KILL CANDE 

EN D i 

SEl«WORK C 103; 

RBASE; % USERS/CANOE RECQRU ZERO 

BASE); 

the logging procedure. 
0w be a 1 row file. this will speed up the 
and cut down on candes core requirements. 



SI 
St 

s> 

Si 

St 



USERBA 
LLDISKREAD*sUSE 

diskwrite (user 
this patch updates 
users/cande must n 
logging procedure 



00012510 
00015110 

oioneoo 

01012710 
05000332 

05000334 
05000336 

05000338 
05000340 
05001025 
05001030 
05001035 
05001040 
05001045 
05001050 
05001055 
36005200 
36005900 



D.G. WILLMS. 23UUN76, BROCK U. PATCH 521 



0521 
0521 
0521 
0521 
0521 

0521 
0521 

0521 
0521 
0521 
0521 

0521 
0521 

0521 
0521 
0521 
0521 
0521 
0521 
0521 
0521 

0521 
0521 



$* patch number 523 for cande.xvi.o contains is cards, a ll the news d 0523 

X TO VOID A CARD 00011600 0523 

TEMPl*e; % MUST NOT BE 4 - SSFILE USES AS FLAG 01012100 D 0523 

IF EVENTS C3] LSS THEN GO TO WINDUP; % NO RECORDS 01019350 D 0523 

LLDlSKREADIsEVENTS [?3,C18U5JJ 01019400 Q 0523 

D0INGl»2; % TRANSFER TO 01019550 D 0523 

IAM!*VSSFILE; % SSFILE 01019600 0523 

A CBASE+33l*LL; 01019650 D 0523 

S VOIOT 01019900 D 0523 

DEFINE SPOCNTRL * A CBAsE+2] #; 42000450 D 0523 

BEGIN 42007000 0523 

IF TEMP NEQ 4 THEN X RETUHN TO "HITHERE" 42007010 0523 

BEGIN 42007020 D 0523 

IAMI*VHELLO; D0INGM7; 42007030 0523 

END 42007040 D 0523 

ELSE 42007050 D 0523 

IAMl»0; 42007060 0523 

GO TO EXIT; 42007070 D 0523 



St 
s» 
$i 

$i 
si 
si 

st 

St 



end; 
this patch updates logging in. 
if the news/qande file is present 
be caueo to list the entire file, 

HITHERE, 

ALSO CANDE WILL NOT LIST SEGMENT ZERO ON 

NEWS/CANOE FILE CONTAINS NO RECORDS (IE. 



42007080 



DURING LOGIN* PROCEDURE SSFILE WILL 
CONTROL WILL THEN GO BACK TO 



THE TERMINAL IF THE 
ROW 1 AT SEGMENT 0), 



D.G. WILLMS* 24JUN76, BROCK Ut PATCH 523 



0523 
0523 
0523 
0523 
0523 
0523 
0523 

0523 
0523 



S# PATCH NUMBER 524 FOR CANOE, XVl,Q CONTAINS 9 CARDS* BYEBYE 



St 
S| 
St 



BEGIN 



IF A CBASE3 LSS 50 THEN % CHECK FOLLOWING IF NOT "HELLO" 54000601 



IF 



IF 



THIS 
IF A 
FILE 
IF A 



TI*((A CSREG**BASE»A [BASE]] 
GOERR C M TQQMANY"*16); % TOO 
T m 1 THEN 
IF Tta £ A [INC <SREG)]«C6U2] 
ELSE GOERR CT#8) * ILLEGAL 
ELSE 
END* 
PATCH UPDATES BYE. 

USER TRANSMITS BYE flYE, CaNQE WILL NO 
HAS UNSAVED RECORDS IN IT, IT wlLL GO 
USER EXCEEDS HIS IOlE PERIOD* THE MCP 



).FF) > 1 THEN 
MANY PARAMETERS 



)ss"BYE 
PARAMETER 



" THENXFORCED 



54000602 
54000603 
54000604 

54000605 
BYE54000606 
54000607 
54000608 
54000665 



St 

SI COMMAND TO DISCONNECT HIM IMMEDIATELY* IF 
St 

SI P,G,WILLMS#11AUG76, brock Ut PATCH 524 

$ I ******************************************* 



T CHECK TO SEE IF HIS WORK 
DIRECTLY TO LOGGING HIM OFF. 
WILL ALSO SEND A BYE BYE 

MCP PATCH 557 (BROCK) IS IN. 



*************************** 



D 0524 



0524 
0524 
0524 
0524 
0524 
0524 
0524 
0524 
0524 
0524 
0524 
0524 
0524 
0524 
0524 
0524 
0524 



$# PATCH NUMBER 525 FOR CANOE, XVl.O CONTAINS 1 CARD, COMPILE DEFAULT PRIOR 



St 
St 
St 
St 
St 



WORK C18]|*5; * PRIORITY 
THIS PATCH ALTERS THE DEFAULT PRIORITY OF JOBS COMPILED UNDER CANOE, 
THIS PRIORITY IS 5. THIS WILL ONLY BE USED WHEN A PROGRAM COMPILED 
UNDER CANDE IS EXECUTED UNDER BATCH, 

D,6,WILLMS,13APR76. BROCK U, PATCH 525 



32001800 



0525 



0525 
0525 
0525 
0525 
0525 
0525 



$* PATCH NUMBER 526 FQR CANDE. XVl.O CONTAINS 3 CARDS. UNNECESSARY WQRKFIlE 



IAMt«o; 
iami«o; 
iami*o; 
st this patch causes canoe to s£t up the "ip" and 

SI USER IS GOING TO USE A WqRK FILE (IE* "MAKE" OR 

St THIS PATCH CANDE WOULD SET THESE FILES UP WHENEVER A 

St SOME USERS NEVER USE A WqRk FIlE AND THUS DON"T NEED 



"IT" FILES 
"LOAD"), 



01021000 
09002900 
09004400 



ONLY IF TH£ 
PRIOR TO 

USER LOGGED IN, 

THESE FILES, 



D 0526 



0526 
0526 
0526 
0526 
0526 
0526 
0526 



$! THIS WILL ALSO HELP TO SEDUCE CLUTTER ON THE OJSK, 

SI 

*1 D,G,WILLMS,16AUG76, BROCK U. PATCH 526 



0^26 

0526 

D 0526 



$# PATCH NUMBER 527 FOR CANOE. XVltO CONTAINS 37 CAROSt REMOVE ALL WQRKFILES 



0527 



PRQCEOURE FjuESAWAY C0BjT0Q,U3ERCQDE )i VALUE OBjTOU#USERCQDEJ 

iTnn» oc4i ncroriinri 



REAL USERCUOE; 
X*************************************************** ******************* 



BOOLEAN 08JT00; 

k*****i 

BEGIN 



REAL Ti/T2; 

Ti»«LL & 13 C33I41I 73 J 

REMOVEFILE CT1 ,T2I .MAKEFN C "1S",LL> f USEKCODE )i 

IF OBJTQO THEN REMQVEFILE (T 1* T2 , C6» 363'USERCODE )i 






tt2«42«6],uSERC0DE); 
C12U2I63#USERC00E); 
tl2M2!6]#USERC00E); 



REMOVEFILE CT1,T2 

REMOVEFlLE (T1,T2 & 

REMQVEFILE CT1,T2 & 

T2.t36H2]|»i; 

REMOVEFILE (T1#T2 & "P w C12 *42 86 ] ,USERCODE >J 

END OF FILE3AWAY; 

FILESAWAY (TRUE#USERCOOE); 
$ VoidT 54002950 
WRKFILEJ 

IF FILENAME * THEN GOERR ("NO FIuE w #l)J 

TPCOUNTi«FlLENAMEl*30URCEFlLE»*IAM|so; 
FILESAWAY CNQT S*USERCQDE); 

filesoki*false; 

if not s then goqdqbjlab (objectf ile ««0); 

IF THEN 

IF GOOQOBJ THEN 



BEGIN 



ENO 



qbjectfilejsq; 
goodobj«»false; 

X**MAK£FN ("lS'VLD* 

REMOVEFILE (LL & 13 I 33 : 41 I 7 )> X , C6 1 36 J,USERCODE ) i 

lAMtaOj 

go exit; 



else 

GOERR ("NO FILE", 26) 
ELSE 

go to wrkfile; 
this patch updates "remove", 

IF A USER REMOVES HI S WQRKFIlE, CANOE WILL NOW REMOVE ALL ASSOCIATED 
FILES (IE» »tS», «1P«, "IT", ETC), 

IF A USER ATTEMiTS TO REMOVE HIS WQRKFILE COR His OBJECT WORKFILE) 
CANDE WILL NOW CHECK TO SEE IF HE HAS ONE RATHER THAN JUST RESpONDI 
WITH A "#", 



*00066150 
00066200 
00066225 

♦00066250 
00066300 

00066350 
00066400 
00066450 
00066500 
00066550 
00066600 
00066650 
00066700 
00066750 
00066800 
54002200 
54002300 
61001000 
61001050 
61001100 
61001110 
61001120 
61001130 
61003213 
61003216 

61003220 

61003223 
61003226 
61003230 
6J003233 
61003236 
61003240 
61003243 
61003246 
61003250 
61003253 
61003260 



NG 



D,G,WlLLMS,17AUG76, BROCK U, PATCH 527 



D 


0527 


D 


0527 


D 


0527 





0527 


D 


0527 


D 


0527 





0527 


D 


0527 


D 


0527 


D 


0527 


D 


0527 





0527 


D 


0527 





0527 


D 


0527 


D 


0527 


D 


0527 


D 


0527 





0527 





0527 


D 


0527 


D 


0527 





0527 


D 


0527 


D 


0527 





0527 





0527 


D 


0527 


D 


0527 





0527 


D 


0527 





0527 


D 


0527 


D 


0527 


D 


0527 


D 


0527 


D 


0527 


D 


0527 


D 


0527 


D 


0527 





0527 


D 


0527 





0527 


D 


0527 


D 


0527 



$#PATCH NUMBER 901 FOR CANDE CONTAINS 5 CARDS COPY TO L?A*LPB 

ELSE MATCH(W0R0,[6»30]# M PRINT») UNIT J= 17 
ELSE MATCHCWORD, "SPECIAL") UNIT «* 3 

IF UNIT-17 OR UNITsl2 THEN UNITI-15; X PRINT TO PBD 
MATCHCWORD^LPA ") UNIT «■ 5 ELSE 
MATCHCWQRD»"LPB ") UNIT ;s 6 ELSE 
*l BY TOM PENNELLO* UCSC ALLOWS COPY TO LPA, L^B 
Si REQUIRES A PATCH TO COPY/CANDE 



0901 

430U8Q0 D 0901 

43011810 0901 

43013030 0901 

52008610 D 0901 

52006620 D 0901 

D 0901 

D 0901 



$#PATCH NUMBER 903 FQR CANDE CqNTaINS 1 CARD MINIMIZE M A XLINES 



DEFINE MAXLINES 
SI BY JH# UCSC* 
*l A MAXIMUM OF 



■ 12*; X * OF LOGICAL LINES TO BE HANDLED* 

CUTS DOWN ON SOME ARRAY SPACE IN CANDE BY ALLOWING 
12 TERMINALS TO BE LOGGED ON AT UNCE. 



00001000 D 0903 

00007900 0903 

00008000 D 0903 

00008010 D 0903 



$#PATCH NUMBER 9 04 FQR CAnDE CONTAINS 114 CARD ABBREVIATED VERBS 



00010000 D 0904 



FILL WORKC*] 
"1SEQ 
"2PUNCH 
"3ST0P 
"2TIME 
FOR VRB I* 
BEGIN 
N !■ WORK 
IF YOUFIN 
BEGIN 
N In ( 
SETBIT 

end; 
end; 
end prqcedur 

M 

comment verbtab 
scanner c for 

F 



WITH 
"» "5HELL0 

"> "2 
«, ng 

STEP 



'1BYE 



"# "2TAPE 



CHARGE "» "3S 
CC »r "3S 

M0NlTO8«; 

1 UNTIL 13 D 



CHEDUL"> "3STATUS », 
ET "t "5RESET '♦* 







; 



[VRB3 

DAVERBCN, VERBTABLEtO}* numofveRbS) then 



NtC9l 



93) div a; 

RESTRICTEDVERBS); 



E SPO 
AKEDA 

lecwq 

"SPEC 
ILL V 



logon; 
te; 

R01.C6I33 

IAL" VERB 
ERBTABLEC 
1LIST " 
IRUn " 
2SAVE " 
1SEQ " 
1EXECUTE" 
2D0 

1MAKE " 
2L0AD 
1C0MPILE" 
3REM0VE " 
2CHANGE " 
3RENAME " 
1FILES " 
1WHATS " 



IS 

); 

3 W 

3" 

3" 

3" 

3" 

3" 
3 « 

3 M 
3" 
3" 
3" 

3" 

3 n 

3" 
3" 



USED AS A FLAG FOR 



ITH 

3000000000000070" 

3000020000000071" 

3000040000000073" 

3000060000000065" 

3000100000000071" 

3000100000000071" 

3000140000000067" 

3000160000000072" 

3000200000000071" 

3000220000000075" 

3000240000000076" 

3000260000000077" 

3000300000000063" 

3000320000000100" 



X #56 

* #57 
X #59 
X #53 
% #57 

X #57 » EXECUTE 

X #55 

X #58 

X #57 

X #61 

% #62 

X #63 

* #51 

X #64 ALSO 



90367780 
90367790 
90367800 
90367810 
90367820 
90367830 
90367840 
90367850 
90367860 
90367870 
90367880 
90367890 
90367900 
90367910 
90367920 
90368000 
90368010 
90368020 
90369000 
90370000 
90371000 
90372000 
90373000 
90374000 
90375000 
90376000 
90377000 
90378000 
90379000 
90380000 
90381000 
90382000 
90383000 



D 0904 
D 0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 



$1 



"2CREATE "> 
"5HELL0 "* 
«2TYPE ", 

-IBYe "> 
"3CQpY "* 
"2MERGE "» 
"3RESEQ "> 
"2DEUETE M # 
"1APPENQ "* 
"1A00 "» 
"2T0 «p 
"2SS "# 
"1GUARD "» 
M 3La C K 'V 
"1UNLOCK ", 
"2TAPE "# 
"IPBjNT % 
"2PUNCH "# 
"6CMARGE "> 
M 3SCHEDUL M * 
"3STaTUS "> 
"3STQP "*• 
"2TIME "*■ 
"lUPDATE n > 
"3REPLACE"' 
"4FIND "# 
"2CC % 
"2RMERGE "# 
"iOISPLAY'^ 
W 3S|T "» 
"5RESET % 
"2MONITQR"* 
"3SS F ILE w # 
"2EQUATE % 
"3PUBUC n > 
"7*******"* 

LoCK(VERBTABUEC*l 
FILL TYPETABUEC*] 
"EBASIC "# 
"EALGOL "* 
"ECQBOL »> 
"GFORTRAN"* 
"ETSPQL «, 
"FXALGQL "> 
"3SEQ "# 
"4DATA "> 
"3LOCK "* 
"4INFQ "* 
M GC0B0168»; 
LOCKCTYPEjABLEC*] 
FILL RESWRDTABLEC 
"5BASIC "* 1 1 
"5ALG0L "# X 2 
"5CQBQL «, % 3 
"7F0RTRAN"* X 4 
"5TSPQL «* X 5 
"6XALGQL «> X 6 



3 W 3000 340000000067" 
3*3010360000000001" 
3 w 3Q0Q4O0OOOOO0101" 
3" 3000420000000066" 
3*3000440000000064" 
3" 3000460000000064" 
3 "3000500000000064" 
3*3000520000000064" 
3" 300054000000006 4" 
3" 300054000000006 4" 

3" 300060000000006 2" 
3*3000620000000062" 
3*3000640000000103" 
3*3000660000000104" 
3"3000700000000104" 
3" 3000720000000 105" 
3*3000740000000106" 
3*3000760000000064" 
3"30Q1QQ00Q00001Q7" 

3"300l020000000n0" 
3*3001040000000111" 
3*3001060000000111" 
3*3001100000000045" 
3"3O0U20O00000li3" 
3*3011140000000114" 
3*3011160000000114" 
3*3001200000000046" 
3*3001220000000064" 
3"3001240O00000070" 
3*3011260000000051" 
3*3011300000000051" 
3*3001320000000050" 
3"3001340QQQ000052" 
3"3001360000000053" 
3 W 3001400000000104" 
0' X LAST ENTRY 
); X MAKE READ ONlY 
WITH "7UNKN0WN"* 



#55 ALSO 

01 

#65 

#54, 

#52 

#52# ALSO 



X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X7 2 

X73 

X73> ALSO 

X37 

X 75 



#52* 

#52* 

#52* 

52, ALSO 

50 

50*ALSU 

67 

68 

68#ALSQ 

69 

70 

52#ALS0 

71 



ALSO 
ALSO 
ALSO 



76 

76 ALSO 

38 

52 ALSO 

56 

41 

41 ALSO 

40 

42 

43 

68 ALSO 



ARRAY 



)} X MAKE READ ONLY ARRAY 
*] WITH "7UNKN0WN"* 



90384000 
90385000 
90386000 
90387000 
90388000 
90339000 
90390000 
90391000 
90392000 
90393000 
90394000 
90395000 
90396000 
90397000 
90398000 
90399000 
90400000 
90401000 
90402000 
90402100 

90402200 

90402300 

90402400 

90402860 

90402870 

90402880 

90402890 

90403000 

90403100 

90403200 

90403300 

90403400 

90403410 

90403420 

90403430 

90403900 

90403950 

90404000 

90405000 

90406000 

90407000 

90408000 

90409000 

90410000 

90411000 

90412000 

90^13000 

90413100 

90413900 

90413950 

90414000 

90415000 

90416000 

90^17000 

90418000 

90419000 

90420000 



D 

D 
D 

D 
D 
D 
D 
D 
D 
D 
D 
D 



0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
D 0904 
D 0904 
0904 
0904 
0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 

0904 



"3SEQ 
"4DATA 



"4L0CK " 

"4INFQ » 
"7C0B0L68" 
"6PUBLIC » 
"7S0LEUSE" 
"7UNLQCKE" 
"6L0CKED " 
"60BJECT w 
"6S0URCE » 
"4CARD5 » 
"4DISK " 
"3EN0 " 

"5ERR0RS « 
"4FILES " 
"4FR0M " 
"7LIBRARY" 

"7PRINTER" 

'•5PUNCH ♦» 

♦•5RESEQ » 

M 4TAPE H 

"4TYPE M 

"4WITH " 

I BY TjP> UCSC CENTRAL, 

I CHANGES THE MINIMUM LENGTH OF 

I SHORTENS MOST OF THEM* WHILE 

I CURRENT CANOE ABBREVIATIONS. 

I E,G,# "MAKE" CAN BE ABBREVIATED M M», 



% 

% 

% 

% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 



7 

8 
9 
10 
11 
12 
13 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 

85 
26 
27 
28 
29 
80 
31 



% 1 - 17 ARE POSITION DEPENDENT 



MOST CANDE VERBS, 
KEEPING CONSISTENT WITH THE 



90421000 

90422000 

90423000 

90424000 

90425000 

90426000 

90427000 

90428000 

90429000 

90430000 

90431000 

90432000 

90433000 D 

90434000 

90435000 

90436000 

90437000 

90438000 

90438100 

90438200 

90438300 

90438400 

90438500 

90438600 

90439000 

90439010 

90439020 

90439030 

9Q439040 

90439050 



0904 
0904 
0904 

0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 
0904 



.-.^iMf 



ty> #*- 



t^^wKP *"^p^Hpf ,* ■nmMht ' " *&* 



********** CONFLICTS ********************************************************************************** 



MATCHCWORD, "LIBRARY"* BEGIN LlBJsTRUEJGO NUMUSER END EL&E56007650 0501 CONFLICTED WITH! 
MATCH CWQRD, "LIBRARY") LIB ;* TRUE ELSE 56007650 0400 DISCARDED 



NUMBER OF ERRORS DETECTED n 0, 
PROCESSOR TIME = 29 SECONDS, 
I/O TIME « 25 SECONDS, 

LABEL OOOOOOOOOLlNE 00177013? EXECUTE PATCH/MERGE PATCH /MERGE 



'-.>.' r. '■'" ■■■1' ■"*■"* .■»,,<'•.••■•'■■*'«■' 



LABEL OFULLPGEOLINE 001763l7?EX Q/RJFRE S'CPATcH/SPQJENQ* 

FJLE« CPATCH/SPO FRIDAY 11/12/70 03120 PM 



/R 



59001800 
59004400 
59004450 
59010700 



430H800 
♦3011810 
43013030 
52008610 
52008620 



ie 1990s 

1019904 



I 



l*eCARD CONFLICTS LIST NUNO MERGE ZIP 

IS, 7 PATCHES FOR CANOE 

COMPILE NUCANOE/TSHARER 

TSPOL STACK * 1024 , 

TSPQL FILE TAPE * SYMBQL/CANDE OlSK 

CORE « 4000. COMMENT SETS CORE EST 

STACK * 256, CANOE STACK NEEDS NO 

DATA CARD 



IS* 
IS* 

IS* 

IS* 
IS* 
IS* 
IS" 

ISRESET LIST SINGLE 
ISSET TAPE 
|S#P A TCM NUMBER 

I IF T s 

' (F 

I 

I IF AEBASE] 



WITH TSPOL LIBRARY 

COMMENT TSPOL STACK AINPT BIG ENOUGH 
SERIAL 

FOR CANDE TO 4000 WQROS 
MORE THAN 256 WOS 



105 FOR CANOE 
THEN ACBASE3 ♦ 
* IF AC8ASEJ < 
FILETYPEC32I42I63 



CONTAINS 4 CARDS 
-1 ELSE 

THEN ELSE ACBASE3) & 
& UNLQCKTQGGLE [3114711]}; 



20 THEN W0RKC33.C2I103 ♦ ACBASC1J 
IS! BY JTC • MSA CENTRAL 
ISfPATCH NUMBER 901 FOR CANDE 
I 



CONTAI 



N5/T)CAI 
"JIJNIT 



17 



^ ARD5 
ELSE MATCHCW0RD,t6l303*"PRINT«i^NIT I* 
ELSE MATCH(WORD*"SPECIAL H ) UNIT I* 3 

IF UNIT*17 OR UNITB12 THEN UNITinS* % PRINT TO PBO 
[ MATCHCWORO* n LPA " ) UNIT l» 5 ELSE? 

LMATCH(WORD^ n LPB " } UNIT l« 6 JX%SJ 

tom pTnnello, ucsc allows copy to lpaTlpb 
tch number 902 for cande contains 2 cards 

fWQRKU03,C6l42J NEO " " TH£N TWXOUTC LL' WORKS 103* 72#CRLF )i 

2S R 5i5°2-5? * A2 2 NEQ * " TH£N TWX0UT(LL*WQRKC203#72»CRLF); 
BY TOM PENNELLO, UCSC CENTRAL, ALLOWS UP TO 3 LINES OF LOGIN MSG 



LABEL OFULLHGEOLINE 00176317?EX Q/RJFILE S»CPATCH/5PQ JEND* 



Jr*cAi /- 









I i 
I i 
I 3 
I* 
I s 
I t, 

I 7 
I* 
II 

|f° 
III 
lit 
lii 
I '4 

I'C 
I It. 
111 
I I* 

111 

lz» 

I*' 
1 1* 
|i* 

I 

I 
I 
I 
I 



/R 



* 
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Lf03 

tfOH 
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I 

4 
I 
i 

I 
I 
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